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module PRTSMB; /* Private symbiont definitions 
/* 
. Symbolic definitions for symbionts 
r 
Version ‘v03-016' 
® 


JRARERAAAAAAEAAAAA AAA AEAAEAEAAAAREEEAAAARERAAEAEHAHARETAKe Kee eee eeeeeet ets 


/* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
/* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
/* ALL RIGHTS” RESERVED. 


a 
os 
® 
® 
js THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
/* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
72 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
/* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
J: OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTARE IS HEREBY 
je TRANSFERRED. * 
4 ® 
/* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
/* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
/* CORPORATION. . 
® 

* 

® 

* 

® 

® 


/* DIGITAL ASSUMES NO RESPONSIPILITY FOR THE USE OR RELIABILITY OF ITS 
/* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


JRAAAAAAAAAAAERA EAA AE AREER EAA AEA AAA EAE ee 
/*t 
{tee 
. FACILITY: Print symbiont 
® 
ABSTRACT: Data Structure Definitions 
a 
fe ENVIRONMENT: Non-executable. 
ce 
/* AUTHOR: Gregory R. Robert, August, 1982 
e 
. MODIFIED BY: 


e 
/* V03-016 GRROO16 Gregory R. Robert 09-May-1984 
/* Move hangup be BE stream flags so that it is not 
pn cleared at start task. 

aw 
/* v03-015 gnnots vouery R. Robert 29-Apr-1984 
/* FT2 bugfixes. adde header_built flag, and resorted 
cs AF fields. 

e 

/* v03-014 RRBOO14 Rowland R. Bradley 27-Apr-1984 
/* Add dummy longwords for future work during Version V04-000 
. Reorganize the SCB data structure for clarity. 

e 

/* v03-013 RRBO013 Rowland R. Bradley 23-Feb-1984 


/* Add definitions need for enhancement of print symbiont. 


Smt 


® 
7 
$s) 
| 
i 
$t 
' 
i | 
i 
$tl 
' 
i | 
i 
MA 


MA 


v03-012 


v03-011 


v03-010 


38-009 


38-008 


38-007 


38-006 


38-005 


38-004 


38-003 


38-002 


K 
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Add constants for accessing and describing these definitions. 


GRROOOD Gregory R. Robert 29-Sep-1983 
Remove carriage control definitions == now in Lib.132. 
GRROOOS Srepery R, Robert 28-Sep-1983 
Remove use of S_ACCOUNTING_DATA and S_CHECKPOINT_DATA 
GRROOOS Gregory R. Robert 26-Sep-1983 
Move public definitions to SYSDEF.SDL (Lib). 

GRR3009 Gregory R. Robert yo a 
Bugtixes, page_setup_modules, form_setup_modules, 


sheet_feed, symbiont initiated pauSe_task and stop_stream, 
hangup code, read and write item services 


GRR3008 arogery R. Robert 03-Aug-1983 

Rewrite for new design. 

GRR3007 Sropery R. Robert 29-Jul-1983 
Converted previx from SMB_ to PSM$ and many other revisions. 
GRR3006 Srogery R. Robert 23-Jun-1983 

Basic aligning, positioning, searching, checkpointing, 


and module handling. 


GRR3005 Srogery R. Robert 27-May-1983 
Substantially revised for FT1. 

GRR3004 Gregory R. Robert 24-Feb-1983 
Significant revision to accomodate new 3B features. 
GRR3003 Sropery R. Robert 28-F eb-1983 


ggg Be user parameter items and extend print co 
to include alignment and rewind features. Remove 
extra size definitions now generated by SDL. 


GRR3002 : Gregory R. Robert 19-JAN-1983 
Give explicit length to structures declared ‘character’ 


SM 


MAI 


r 
} 
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je 
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\/* (RARBRBRRBBRAAARASALAASAREAEASASASARASARE RARER ERE EERE SER EERE REESE ARES 


REMAINING DEFINTIONS ARE VMS-PRTSMB PRIVATE * 


/* Miscellaneous constants 


/* 

constant 
constant 
constant 
constant 
constant 
constant 
/* 


constant 
constant 
constant 
constant 
constant 
constant 
constant 
® 


constant 
constant 
constant 


/t 
/t 
2 


/ 
constant 


) equals 


constant 
constant 
constant 
constant 
constant 
constant 
constant 


PSMSK oCweCkeoint LIMIT equals 5. 
PSMSK_ DEFBU fsiz © equals 51 
PSMSK_FACILITY equals i 
PSMSx_ “FIRST CHAR_USED equals 
PSMSK_MAXSTREAMS~ equals 
PSMS$K_NUMOUTBUF equals 
PSMSK_MAX_PA i SIZE equals 8712; 
PSMS$K_FORM_132x66 equals 1; 
PSM$K_FORM_132x51 equals ¢: 
PSMSK_FORM_ 80x66 equals 3; 
PSMS$K_FORM_80x51 equals 4; 
PSMS$K_FORM_4OxANY equals 5; 
PSM$K_FORM_NON_STD equals 0; 


Standard carriage controls -- 


/* (ARR RRASASASLARAAAALALALESASASAASESASA SELES ES ES EEE R ERASE SESE RESALES SS 


Largest possible page 
® 


leading Line feed, trailing carriage return 
leading form feed, trailing carriage return 


leading form feed 


PSMS$K_LF_CR equals %X0D010A01; 
PSMSK_FF_CR equals %X0D010C01; 
PSMSK_FF™ equals %X00000C01; 


Format effector codes 


( 


/* Backspace 

/* Horizontal tab 
/* Line feed 

/* Vertical tab 

/* Form feed 

/* Carriage return 


8 increment 1 prefix PSM$ tag K_CHAR; 
PSMSK_CHAR_APC equals 095; a 


Application Program Command 


PSMSK_CHAR-CSI equals 091; /* ‘T'' Control String Introducer 


PSM$K-CHAR-DCS equals 080; /*' 


Device Control String 


PSMS$K_CHAR_ESC equals 
PSM$K_CHAR_OSC equals 
PSMSK~ ~ CHAR PM equals 
PSMSK-CHAR_ST equals 


: /* one ESC 


ape 
Operating System Command 
"“"" Privacy Message 

“"\"" String Terminator 


SMI 


‘one a 
| SMBDEF .SDL;1 
/* 
Structure types 
constant ( 
DSB, /* ogee a, serine block 
10B, /* 10 control block 
scB /* Stream control block 


) equals 1 increment 1 prefix PSM$ tag K_STRUCTURE; 


/t 
Jo Dynamic String Block 
? 

Seprepete DSB structure prefix DSB_; 
QLINKS quadword unsigned; 
DESC qQuadword unsigned; 

end; 

/t 

. Input Output control Block 


operepete 10B structure prefix 10B_; 

QLINKS quadword unsigned; 
STRUCTURE structure Longword unsigned; 

TYPE byte unsigned; 

LEVEL byte unsigned; 

aoa word unsigned; 


en 

OSB structure quadword unsigned; 
IO_STATUS word unsigned; 

IO-LENGTH word unsigned; 

10-3 word unsigned; 

10_4 word unsigned; 


end; 
CONTEXT address; 
ROUT INE address; 


BUFFER quadword unsigned; 

RECORD seer’ unsigned; 

FLAGS ture Longuord uns tgned; 
CHECKPOINT SPENDING oetf eld mask; 


FLUSH PENDING bitfield mask; 
PASSA bitfield mask; 
ee PENDING bitfield mask; 
At LER bitfield Length 32-* 


“CHECKPOINT DATA character length 24; 


/* Message Item Table entry structure 
aggregate MIT structure prefix MIT_; 


M 
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Queue Links 
Descriptor 


Output queue buffer Links 
Structure ID 


User context 

Routine address 

Buffer descriptor 

Record Soege tpter 

10B fla 

chec notat ponding 
flushing output stream 
write noformat 

respond when 10 complete 


Checkpoint 


——_——__-_—__ —-——_ 


| 
| 
| 


| SMBDEF .SDL;1 


TYPE 
constant 
constant 
constant 
constant 


constarn 
consta: 


end; 


/* Servi 


aggregate SRV st 
rs SERVICE 


byte; 
byte equals 


1 
WORD equals 2 
LO’ “WORD equals 4 

JWORD equals 8 


AMIC equals - 
TIC equals -2; 


ture byte unsigned; 


ield mask; , 
field length 08-* fill; 


rd unsigned; 


outine Table entry structure 
ructure prefix SRV_; 


address; 
USER_ARGUEMENT Longword unsigned; 


SERVICE_TYPE 
constant 


byte unsigned; 


OUTPUT_SERVICE 
) equals 1 increment 1; 


RESERVED 
end; 


character length 3 tag 7; 


N 
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/* Item type (SIGNED) 
- byte 


/* y 

/* = word 

/* = longword 
/* = quadword 


je «@ Yee by descriptor 
/* = static descriptor 


/* 10 flags 
/* = reset at start of task 


/* Offset to item in structure 


/* Address of service routine 
/* User supplied arguement 


/* Service flags | . 
/* = user may provide service 
/* - user has provided service 


/* Type of service routine 
/* Define service types 

/* = file processor — 

/* = formatting routine 
/* = other input routines 
/* = Library routines 

/* = output routine 


/* (fill out the lLongword) 


| 

| SMBDEF .SDL;1 16-SEP- 
| 

ys 

it Stream Control Block 

“aggregate SCB structure prefix PSM$; 


/* 
Ge Standard structure header 
* 


QLINKS Quadword unsigned; /* St 
STRUCTURE structure longword unsigned; 
TYPE byte unsigned; 
LG yet byte unsigned; 


STREAM FLAGS structure longword unsigned; 
ACTIVE bitfield mask; /* = 
EXPAND_TABS bitfield mask; /t - 
HANGUP™ bitfield mask; . 
JOB_INITIALIZE bitfield mask; - 
FILCER bitfield Length 32-*/ fill; 
end; 

TASK_FLAGS structure Longword unsigned; 
ALIGN bitfield mask; /* - 
ti bitfield mask; it = 
EOF bitfield mask; /* = 
Fgh IN_PROGRESS bitfield mask; jt 

48 VALID bitfield mask; /x 
FIRST R CORD bitfield mask; /t = 
IMPLICIT FORMFEED bitfield mask; /e = 

NEW RECORD bitfield mask; /e = 

PAGE -HEADER BUILT bitfield mask; /e = 
FFSET bitfield mask; jt = 

RESET. bitfield mask; je 

RESUME “pat bitfield mask; /t = 
SEARCH_FOR_PAGE bitfield mask; jt 
SEARCH FOR STRING bitfield mask; je = 
SUPPRESS _O0TPUT bitfield mask; jt - 
FILLER bitfield Length as = * TH 


end; 


/* 
/* Message items 
/e 


oon DATA quadword unsigned; /* Ac 
ACCOUNT NAPE quadword unsigned; /* Ac 
AFTER TIME quadword unsigned; /* 
ALIGNRENT PAGES Longword unsigned; /* 
BOTTOM_MARGIN longword unsigned; /* T 
CHARACTERISTICS quadword unsigned; /* 
CHECKPOINT DATA Quadword unsigned; /* Ch 
CONDITION_VECTOR quadword unsigned; /* Er 


word unsigned; 
end; 
/* 
i; Symbiont state flags 


: qoteu 
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ructure queue Links 
/* Structure ID 
/* = type 


/* = size 


/* Stream state flags 
Queue is starte 
Expand tabs to spaces 
data set hangup 
Job reset pending 


/* Job state flags 
et Sprqens in progress 
task In progress 
force end of file 
escape sequence in progress 
FAB connect succeeded 
first record of input service 
implicit formfeed detected 
= input record 

Page — 2 senelaee built 

set ne 

STOPINER! or "STOP/RESET in progress 
waiting for resume command 
page search in progress 
atin search in progress 
suppressed 


counting information 
count name 
Om tan 


4 LIGN 

ailin blank Lines 
“CHAR CTERISTICS 
eckpoint information 
ror messages 


SMBI 


E_NAME 
CE~STATUS 
Y_RUMBER 
UTOR_QUEUE 

OPTES 


VYMmMmnoa wD 
4 oO 


COUNT 
SETUP _MODULES 
PAGE 


i) ae oe oe ea 


M_CENGTH 
RM_SETUP_MODULES 
NAME 


—OO00 eee x 2mm 
m22 


JOB-NAME 
JOB-RESET_MODULES 
LAST_PAGE 

LEF T~MARGI 


N ongwor 
LIBRARY SPECIFICATION quadword unsigned; 


MAX IMUM~STRE 
MESSAGE _VECTOR 
PAGE_SETUP_MODULES 
PARAMETER_ 


' 
ONOUSWwr—-4 


PARAMET 
PARAMETER_ 
PARAMETER 
PRINT_CONTROL 
PRIORTTY 


wv 
> 
z 
> 
=x 
m 
~ 
mmm 
DDwDDD 


QUEUE 

REFUSE _REASON 

RELATIVE_PAGE 

REQUEST_CONTROL 

REQUEST RESPONSE 
HT_MARGIN 


U 
USER_NAME 


/e 
. Queue headers 
a 


BUF FER_QUEUE 


CHECKPOINT QUEUE 
INPUT_QUEUE 


quadword unsigned; 
Longword unsigned; 
Longword unsigned; 
quadword unsigned; 
Lonaword unsigned; 
Lon_word unsigned; 
quadword unsigned; 
Longword unsigned; 
Longword unsigned; 
Quadword unsigned; 
quadword unsigned; 
Longword unsigned; 
Quadword unsigned; 
quadword unsigned; 
lLongword unsigned; 
Longword unsigned; 
qQuadword unsigned; 
quadword unsigned; 
lLongword unsigned; 
l d unsigned; 
Longword unsigned; 
Quadword unsigned; 
quadword unsigned; 
quadword unsigned; 
quadword unsigned; 
quadword unsigned; 
Quadword unsigned; 
quadword unsigned; 
quadword unsigned; 
Quadword unsigned; 
quadword unsigned; 
quadword unsigned; 
longword unsigned; 
Longword unsigned; 
quadword unsigned; 
quadword unsigned; 
longword; | 

Longword unsigned; 
Longword unsigned; 
es unsigned; 
quadword unsigned; 
longword unsigned; 
longword unsigned; 
Quadword unsigned; 
Longword unsigned; 
soneeere unsigned; 
Quadword unsigned; 


quadword unsigned; 
Quadword unsigned; 
Quadword unsigned; 


¢ 
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/ON 
Device status 
Job entry number 
/QUEU 


/COPIES 
Current file copy number 
/SETUP (print 
PAGES 
/LENGTH 


/SETUP (define/form) 
Nene et physical form 


Device, fid, and did 
File name 

/JOB_ COUNT 
Current job copy number 


N 

/SEPARATION 

/PA 

/LEF T_MARGIN 

/LIBRARY 
Maximum streams supported 
error gesnnges to print 


To be implemented 
/PARAMETER 
/PARAMETER 
/PARAMETER 
/PARAMETER 
/PARAMETER 
/PARAMETER 
/PARAMETER 
/PARAMETER 

Printing control 

Queue Spee 
/ QUEUE 


Reason task refused 
/BACKWARD, /FORWARD values 
Request control 
mogueet 2 responded to 
RIGHT _MARGIN 
/SEARCA value 
Separation control 
_/ABORT or /REQUEUE 
Time queued 
/TOP_MARGIN 
UIC of submittor 
Username 


Buffer queue headers 
Checkpoint queue headers 
Nested input queue 


eef 


cr— 
i 


6 


} 
SMBDEF .SDL;1 


/* 
i Miscellaneous 


CHANNEL 
CHECKPOINT 
COLUMN 
CONDITION_TEXT 
DEVICE_CLASS 
DEVICE TYPE 


FUNCT ION_ARGUMENT 
10B 


ITEM_FLAGS 
KEEP-ALIVE 
L_MARGI 


ARGIN 
LAST_ENTRY_NUMBER 


LIBRARY_INDEX 
LINE 


PAGE_HEADER 
PAGE LENGTH 


T_MARGIN 
TIME _PRINTED 
USER” BUFFER 
XLATE_TABLE 


Longword 
address; 
Lonqword 
quadword 
Longword 
Longword 
Longword 
address; 
quadword 
Longword 
Longword 
Longword 
Longword 
Longword 
quadword 
quadword 
longword 
qQuadword 
Longword 
Longqword 
quadword 
longword 
address; 
Longword 
longword 
quadword; 
Quadword 
Longword 
Longword 
Longword 
Longword 
Longword 
Longword 
lLongword 
Quadword 
quadword 
address; 


unsigned; 


unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 


unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 


unsigned; 
unsigned; 


unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 
unsigned; 


/t 
c RMS block structure pointers 
a 


FAB 
NAM 
RAB 
KABDAT 
KABF HC 
XABPRO 


/e 


address; 
address; 
address; 
address; 
address; 
address; 


/* No longword alignment past here 


/e 
je 
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Output channel number 
Address of checkpoint 
Current column number 
Expanded error mesages 
Device class 

Device type : 

Work area for service calls 
1/0 block address 

Item flags 

Keep alive count — 

Current left margin | ; 
Entry number of previous job 
Library context 

Current Line number 

Library module List 

Current Library module | 
Status from non-ast routines 
Output buffer descriptor 
Qio’s output 

Page number ; 

Page header epece spear 
Current Page Lengt 

Address of page array buffer 
Current Page Width 

Print format flags 

Record file address 

Search context 

Service routines to execute 


Service routines that are open 


Service completion status 
Start when reached 

Stop when reached 

Job controller stream 
Current top margin 

Time printed 

Input buffer descriptor 
Translation table 


FAB block 
NAM block 
RAB block 
XABDAT block 
XABFHC block 
XABPRO block 


——__—— 
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. Input service context area 

on 

SERVICE CONTEXT structure; 
PUT _RECOR 


IN D Quadword unsigned; /* Input record descriptor 
RECORB_HEADER Longword unsigned; /* Input record header 
RECORD NUMBER sonere unsigned; /* Current record number 
USER_RECORD quadword unsigned; /* User record desc 
CARCON structure longword unsigned; /* Carriage control 
PREF 1X_COUNT byte unsigned; /* = prefix byte count 
PREFIX CHAR byte unsigned; /* = prefix character 
POSTFIX_COUNT byte unsigned; /* = postfix byte count 
+ Hee ate byte unsigned; /* = postfix record character 
end; 
CC_TYPE byte unsigned; /* Carriage control type 
SERVICE INDEX byte unsigned; /* Input service index 
end; 
ACCOUNTING_AREA character Length 16; /* Accounting data 
CONDI TION_AREA character length 4 * 5; /* Condition data 
CHECKPOINT DEPTH byte; | /* Number of checkpoints saved 
ESCAPE STATE byte unsigned; /* Escape sequence state 
FILE _BORST CHAR byte unsigned; /* Burst char for flag page 
INPUT _DEPTA byte; /* Number of services ‘‘pushed’ 
JOB_BORST_CHAR byte unsigned; /* Burst char for job page 
STATE byte unsigned; /* Symbiont state 
/* 
. Patch area 
® 
dummy _0 Longword unsigned; 
dummy _ longword unsigned; 
dummy _ Longword unsigned; 
dummy _ Longword unsigned; 
dummy Longword unsigned; 


_4 
dummy_5 Longword unsigned; 
6 Longword unsigned; 
7 Longword unsigned; 
8 Longword unsigned; 
“e lLongword unsigned; 
/* 
/* NB: The user context area begins at the end of the SCB and extends for 
/* a user defined amount. No SCB definitions may be placed after it. 
e 


USER_CONTEXT_AREA  Longword unsigned tag R; /* User context area 


end; 
end_module; 


